home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00471.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  442 b   |  15 lines
  1. on mouseUp me
  2.   global X, Y, z, a
  3.   X = random(256) - 1
  4.   Y = random(256) - 1
  5.   z = random(256) - 1
  6.   sprite(31).color = rgb(X, Y, z)
  7.   sprite(71).color = rgb(X, Y, z)
  8.   set the locV of sprite 39 to (-1 * X / 1.25600000000000001) + 280
  9.   set the locV of sprite 40 to (-1 * Y / 1.25600000000000001) + 280
  10.   set the locV of sprite 41 to (-1 * z / 1.25600000000000001) + 280
  11.   repeat with a = 39 to 41
  12.     sprite(a).visible = 0
  13.   end repeat
  14. end
  15.